home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Everything / DDocData.p < prev    next >
Encoding:
Text File  |  1998-10-30  |  16.3 KB  |  1,023 lines  |  [TEXT/CWIE]
  1. { DDocData.p -- data container class for Everything}
  2.  
  3. Unit DDocData;
  4. Interface
  5.  
  6. Uses
  7.     Types,
  8.     OSUtils,
  9.  
  10.  
  11.     AMSignaler;
  12.  
  13. const
  14.     idStandard        = longint ('Stad');
  15.     idXx        = longint ('Xx  ');
  16.     idLR        = longint ('LR  ');
  17.     idLR2        = longint ('LR2 ');
  18.     idLR3        = longint ('LR3 ');
  19.     idLR4        = longint ('LR4 ');
  20.     idCheckbox        = longint ('Chex');
  21.     idCheckbox2        = longint ('Che2');
  22.     idNext        = longint ('Next');
  23.     idNext2        = longint ('Nex2');
  24.     idRadioGroup        = longint ('Radp');
  25.     idGroup        = longint ('Grop');
  26.     idGraphic        = longint ('Grac');
  27.     idBevel        = longint ('Bevl');
  28.     idText        = longint ('Text');
  29.     idSmall        = longint ('Smal');
  30.     idLarge        = longint ('Lare');
  31.     idX12345        = longint ('X145');
  32.     idX12345e6        = longint ('X126');
  33.     idPassword        = longint ('Pasd');
  34.     idTheDate        = longint ('Thee');
  35.     idTheTime        = longint ('Thee');
  36.     idStyled        = longint ('Styd');
  37.     idBars        = longint ('Bars');
  38.     idStandard2        = longint ('Sta2');
  39.     idGraphic2        = longint ('Gra2');
  40.     idSlider        = longint ('Slir');
  41.     idTickMarks        = longint ('Tics');
  42.     idNonDirectional        = longint ('Nonl');
  43.     idLittleArrows        = longint ('Lits');
  44.     idSpinner        = longint ('Spir');
  45.     idVolumeControl        = longint ('Voll');
  46.     idJimSSlider        = longint ('Jimr');
  47.     idStandard3        = longint ('Sta3');
  48.     idIndeterminate        = longint ('Inde');
  49.     idChasingArrows        = longint ('Chas');
  50.     idRectangle        = longint ('Rece');
  51.     idRoundRect        = longint ('Rout');
  52.     idBarberPole        = longint ('Bare');
  53.     idRoundBarber        = longint ('Rour');
  54.     idTools        = longint ('Toos');
  55.     idFromValuesList2        = longint ('Fro2');
  56.     idFromMenu        = longint ('Frou');
  57.     idTextList        = longint ('Tex2');
  58.  
  59. type
  60.     {----------}
  61.     DDocData    = object (AMSignaler)
  62.  
  63.     {data members}
  64.         mStandard:        Boolean;
  65.         mXx:        Boolean;
  66.         mLR:        Boolean;
  67.         mLR2:        Boolean;
  68.         mLR3:        Boolean;
  69.         mLR4:        Boolean;
  70.         mCheckbox:        Boolean;
  71.         mCheckbox2:        Boolean;
  72.         mNext:        Boolean;
  73.         mNext2:        Boolean;
  74.         mRadioGroup:        SInt16;
  75.         mGroup:        SInt16;
  76.         mGraphic:        SInt16;
  77.         mBevel:        SInt16;
  78.         mText:        SInt16;
  79.         mSmall:        Str255;
  80.         mLarge:        Str255;
  81.         mX12345:        SInt32;
  82.         mX12345e6:        double;
  83.         mPassword:        Str255;
  84.         mTheDate:        LongDateRec;
  85.         mTheTime:        LongDateRec;
  86.         mStyled:        Str255;
  87.         mBars:        UInt16;
  88.         mStandard2:        SInt16;
  89.         mGraphic2:        SInt16;
  90.         mSlider:        SInt16;
  91.         mTickMarks:        SInt16;
  92.         mNonDirectional:        SInt16;
  93.         mLittleArrows:        SInt16;
  94.         mSpinner:        SInt16;
  95.         mVolumeControl:        SInt16;
  96.         mJimSSlider:        SInt16;
  97.         mStandard3:        SInt16;
  98.         mIndeterminate:        SInt16;
  99.         mChasingArrows:        SInt16;
  100.         mRectangle:        SInt16;
  101.         mRoundRect:        SInt16;
  102.         mBarberPole:        SInt16;
  103.         mRoundBarber:        SInt16;
  104.         mTools:        SInt16;
  105.         mFromValuesList2:        SInt16;
  106.         mFromMenu:        SInt16;
  107.         mTextList:        SInt16;
  108.  
  109.     {methods}
  110.         Procedure Initialize; Override;
  111.  
  112.         Function  GetStandard: Boolean;
  113.         Procedure SetStandard    (inValue:        Boolean);
  114.         Function  GetXx: Boolean;
  115.         Procedure SetXx    (inValue:        Boolean);
  116.         Function  GetLR: Boolean;
  117.         Procedure SetLR    (inValue:        Boolean);
  118.         Function  GetLR2: Boolean;
  119.         Procedure SetLR2    (inValue:        Boolean);
  120.         Function  GetLR3: Boolean;
  121.         Procedure SetLR3    (inValue:        Boolean);
  122.         Function  GetLR4: Boolean;
  123.         Procedure SetLR4    (inValue:        Boolean);
  124.         Function  GetCheckbox: Boolean;
  125.         Procedure SetCheckbox    (inValue:        Boolean);
  126.         Function  GetCheckbox2: Boolean;
  127.         Procedure SetCheckbox2    (inValue:        Boolean);
  128.         Function  GetNext: Boolean;
  129.         Procedure SetNext    (inValue:        Boolean);
  130.         Function  GetNext2: Boolean;
  131.         Procedure SetNext2    (inValue:        Boolean);
  132.         Function  GetRadioGroup: SInt16;
  133.         Procedure SetRadioGroup    (inValue:        SInt16);
  134.         Function  GetGroup: SInt16;
  135.         Procedure SetGroup    (inValue:        SInt16);
  136.         Function  GetGraphic: SInt16;
  137.         Procedure SetGraphic    (inValue:        SInt16);
  138.         Function  GetBevel: SInt16;
  139.         Procedure SetBevel    (inValue:        SInt16);
  140.         Function  GetText: SInt16;
  141.         Procedure SetText    (inValue:        SInt16);
  142.         Function  GetSmall: Str255;
  143.         Procedure SetSmall    (inValue:        Str255);
  144.         Function  GetLarge: Str255;
  145.         Procedure SetLarge    (inValue:        Str255);
  146.         Function  GetX12345: SInt32;
  147.         Procedure SetX12345    (inValue:        SInt32);
  148.         Function  GetX12345e6: double;
  149.         Procedure SetX12345e6    (inValue:        double);
  150.         Function  GetPassword: Str255;
  151.         Procedure SetPassword    (inValue:        Str255);
  152.         Function  GetTheDate: LongDateRec;
  153.         Procedure SetTheDate    (inValue:        LongDateRec);
  154.         Function  GetTheTime: LongDateRec;
  155.         Procedure SetTheTime    (inValue:        LongDateRec);
  156.         Function  GetStyled: Str255;
  157.         Procedure SetStyled    (inValue:        Str255);
  158.         Function  GetBars: UInt16;
  159.         Procedure SetBars    (inValue:        UInt16);
  160.         Function  GetStandard2: SInt16;
  161.         Procedure SetStandard2    (inValue:        SInt16);
  162.         Function  GetGraphic2: SInt16;
  163.         Procedure SetGraphic2    (inValue:        SInt16);
  164.         Function  GetSlider: SInt16;
  165.         Procedure SetSlider    (inValue:        SInt16);
  166.         Function  GetTickMarks: SInt16;
  167.         Procedure SetTickMarks    (inValue:        SInt16);
  168.         Function  GetNonDirectional: SInt16;
  169.         Procedure SetNonDirectional    (inValue:        SInt16);
  170.         Function  GetLittleArrows: SInt16;
  171.         Procedure SetLittleArrows    (inValue:        SInt16);
  172.         Function  GetSpinner: SInt16;
  173.         Procedure SetSpinner    (inValue:        SInt16);
  174.         Function  GetVolumeControl: SInt16;
  175.         Procedure SetVolumeControl    (inValue:        SInt16);
  176.         Function  GetJimSSlider: SInt16;
  177.         Procedure SetJimSSlider    (inValue:        SInt16);
  178.         Function  GetStandard3: SInt16;
  179.         Procedure SetStandard3    (inValue:        SInt16);
  180.         Function  GetIndeterminate: SInt16;
  181.         Procedure SetIndeterminate    (inValue:        SInt16);
  182.         Function  GetChasingArrows: SInt16;
  183.         Procedure SetChasingArrows    (inValue:        SInt16);
  184.         Function  GetRectangle: SInt16;
  185.         Procedure SetRectangle    (inValue:        SInt16);
  186.         Function  GetRoundRect: SInt16;
  187.         Procedure SetRoundRect    (inValue:        SInt16);
  188.         Function  GetBarberPole: SInt16;
  189.         Procedure SetBarberPole    (inValue:        SInt16);
  190.         Function  GetRoundBarber: SInt16;
  191.         Procedure SetRoundBarber    (inValue:        SInt16);
  192.         Function  GetTools: SInt16;
  193.         Procedure SetTools    (inValue:        SInt16);
  194.         Function  GetFromValuesList2: SInt16;
  195.         Procedure SetFromValuesList2    (inValue:        SInt16);
  196.         Function  GetFromMenu: SInt16;
  197.         Procedure SetFromMenu    (inValue:        SInt16);
  198.         Function  GetTextList: SInt16;
  199.         Procedure SetTextList    (inValue:        SInt16);
  200.     end;
  201.  
  202. {----------}
  203. Function NewDDocData: DDocData;
  204.  
  205. {----------}
  206. Implementation
  207.  
  208. {----------}
  209. Function NewDDocData: DDocData;
  210. var
  211.     data:        DDocData;
  212. begin
  213.     data := nil;
  214.     New (data);
  215.     if data <> nil then begin
  216.         data.Initialize;
  217.     end;
  218.     NewDDocData := data;
  219. end;
  220.  
  221. {----------}
  222. Procedure DDocData.Initialize;
  223. begin
  224.     inherited Initialize;
  225.  
  226.     mStandard := false;
  227.     mXx := false;
  228.     mLR := false;
  229.     mLR2 := false;
  230.     mLR3 := false;
  231.     mLR4 := false;
  232.     mCheckbox := false;
  233.     mCheckbox2 := false;
  234.     mNext := false;
  235.     mNext2 := false;
  236.     mRadioGroup := 0;
  237.     mGroup := 0;
  238.     mGraphic := 0;
  239.     mBevel := 0;
  240.     mText := 0;
  241.     mSmall := 'Small';
  242.     mLarge := 'Large';
  243.     mX12345 := 12345;
  244.     mX12345e6 := 123.45e6;
  245.     mPassword := 'Password';
  246.     mTheDate.eraAlt := 0;
  247.     GetTime (mTheDate.oldDate);
  248.     mTheTime.eraAlt := 0;
  249.     GetTime (mTheTime.oldDate);
  250.     mStyled := '';
  251.     mBars := 0;
  252.     mStandard2 := 5;
  253.     mGraphic2 := 5;
  254.     mSlider := 5;
  255.     mTickMarks := 5;
  256.     mNonDirectional := 5;
  257.     mLittleArrows := 0;
  258.     mSpinner := 5;
  259.     mVolumeControl := 5;
  260.     mJimSSlider := 5;
  261.     mStandard3 := 5;
  262.     mIndeterminate := 0;
  263.     mChasingArrows := 0;
  264.     mRectangle := 5;
  265.     mRoundRect := 5;
  266.     mBarberPole := 0;
  267.     mRoundBarber := 0;
  268.     mTools := 0;
  269.     mFromValuesList2 := 0;
  270.     mFromMenu := 0;
  271.     mTextList := 0;
  272. end;
  273.  
  274. {----------}
  275. Function DDocData.GetStandard: Boolean;
  276. begin
  277.     GetStandard := mStandard;
  278.  
  279.  
  280. end;
  281.  
  282. Procedure DDocData.SetStandard (
  283.     inValue:        Boolean);
  284. begin
  285.     mStandard := inValue;
  286.  
  287.  
  288.     SignalDataChanged (idStandard);
  289. end;
  290.  
  291. {----------}
  292. Function DDocData.GetXx: Boolean;
  293. begin
  294.     GetXx := mXx;
  295.  
  296.  
  297. end;
  298.  
  299. Procedure DDocData.SetXx (
  300.     inValue:        Boolean);
  301. begin
  302.     mXx := inValue;
  303.  
  304.  
  305.     SignalDataChanged (idXx);
  306. end;
  307.  
  308. {----------}
  309. Function DDocData.GetLR: Boolean;
  310. begin
  311.     GetLR := mLR;
  312.  
  313.  
  314. end;
  315.  
  316. Procedure DDocData.SetLR (
  317.     inValue:        Boolean);
  318. begin
  319.     mLR := inValue;
  320.  
  321.  
  322.     SignalDataChanged (idLR);
  323. end;
  324.  
  325. {----------}
  326. Function DDocData.GetLR2: Boolean;
  327. begin
  328.     GetLR2 := mLR2;
  329.  
  330.  
  331. end;
  332.  
  333. Procedure DDocData.SetLR2 (
  334.     inValue:        Boolean);
  335. begin
  336.     mLR2 := inValue;
  337.  
  338.  
  339.     SignalDataChanged (idLR2);
  340. end;
  341.  
  342. {----------}
  343. Function DDocData.GetLR3: Boolean;
  344. begin
  345.     GetLR3 := mLR3;
  346.  
  347.  
  348. end;
  349.  
  350. Procedure DDocData.SetLR3 (
  351.     inValue:        Boolean);
  352. begin
  353.     mLR3 := inValue;
  354.  
  355.  
  356.     SignalDataChanged (idLR3);
  357. end;
  358.  
  359. {----------}
  360. Function DDocData.GetLR4: Boolean;
  361. begin
  362.     GetLR4 := mLR4;
  363.  
  364.  
  365. end;
  366.  
  367. Procedure DDocData.SetLR4 (
  368.     inValue:        Boolean);
  369. begin
  370.     mLR4 := inValue;
  371.  
  372.  
  373.     SignalDataChanged (idLR4);
  374. end;
  375.  
  376. {----------}
  377. Function DDocData.GetCheckbox: Boolean;
  378. begin
  379.     GetCheckbox := mCheckbox;
  380.  
  381.  
  382. end;
  383.  
  384. Procedure DDocData.SetCheckbox (
  385.     inValue:        Boolean);
  386. begin
  387.     mCheckbox := inValue;
  388.  
  389.  
  390.     SignalDataChanged (idCheckbox);
  391. end;
  392.  
  393. {----------}
  394. Function DDocData.GetCheckbox2: Boolean;
  395. begin
  396.     GetCheckbox2 := mCheckbox2;
  397.  
  398.  
  399. end;
  400.  
  401. Procedure DDocData.SetCheckbox2 (
  402.     inValue:        Boolean);
  403. begin
  404.     mCheckbox2 := inValue;
  405.  
  406.  
  407.     SignalDataChanged (idCheckbox2);
  408. end;
  409.  
  410. {----------}
  411. Function DDocData.GetNext: Boolean;
  412. begin
  413.     GetNext := mNext;
  414.  
  415.  
  416. end;
  417.  
  418. Procedure DDocData.SetNext (
  419.     inValue:        Boolean);
  420. begin
  421.     mNext := inValue;
  422.  
  423.  
  424.     SignalDataChanged (idNext);
  425. end;
  426.  
  427. {----------}
  428. Function DDocData.GetNext2: Boolean;
  429. begin
  430.     GetNext2 := mNext2;
  431.  
  432.  
  433. end;
  434.  
  435. Procedure DDocData.SetNext2 (
  436.     inValue:        Boolean);
  437. begin
  438.     mNext2 := inValue;
  439.  
  440.  
  441.     SignalDataChanged (idNext2);
  442. end;
  443.  
  444. {----------}
  445. Function DDocData.GetRadioGroup: SInt16;
  446. begin
  447.     GetRadioGroup := mRadioGroup;
  448.  
  449.  
  450. end;
  451.  
  452. Procedure DDocData.SetRadioGroup (
  453.     inValue:        SInt16);
  454. begin
  455.     mRadioGroup := inValue;
  456.  
  457.  
  458.     SignalDataChanged (idRadioGroup);
  459. end;
  460.  
  461. {----------}
  462. Function DDocData.GetGroup: SInt16;
  463. begin
  464.     GetGroup := mGroup;
  465.  
  466.  
  467. end;
  468.  
  469. Procedure DDocData.SetGroup (
  470.     inValue:        SInt16);
  471. begin
  472.     mGroup := inValue;
  473.  
  474.  
  475.     SignalDataChanged (idGroup);
  476. end;
  477.  
  478. {----------}
  479. Function DDocData.GetGraphic: SInt16;
  480. begin
  481.     GetGraphic := mGraphic;
  482.  
  483.  
  484. end;
  485.  
  486. Procedure DDocData.SetGraphic (
  487.     inValue:        SInt16);
  488. begin
  489.     mGraphic := inValue;
  490.  
  491.  
  492.     SignalDataChanged (idGraphic);
  493. end;
  494.  
  495. {----------}
  496. Function DDocData.GetBevel: SInt16;
  497. begin
  498.     GetBevel := mBevel;
  499.  
  500.  
  501. end;
  502.  
  503. Procedure DDocData.SetBevel (
  504.     inValue:        SInt16);
  505. begin
  506.     mBevel := inValue;
  507.  
  508.  
  509.     SignalDataChanged (idBevel);
  510. end;
  511.  
  512. {----------}
  513. Function DDocData.GetText: SInt16;
  514. begin
  515.     GetText := mText;
  516.  
  517.  
  518. end;
  519.  
  520. Procedure DDocData.SetText (
  521.     inValue:        SInt16);
  522. begin
  523.     mText := inValue;
  524.  
  525.  
  526.     SignalDataChanged (idText);
  527. end;
  528.  
  529. {----------}
  530. Function DDocData.GetSmall: Str255;
  531. begin
  532.     GetSmall := mSmall;
  533.  
  534.  
  535. end;
  536.  
  537. Procedure DDocData.SetSmall (
  538.     inValue:        Str255);
  539. begin
  540.     mSmall := inValue;
  541.  
  542.  
  543.     SignalDataChanged (idSmall);
  544. end;
  545.  
  546. {----------}
  547. Function DDocData.GetLarge: Str255;
  548. begin
  549.     GetLarge := mLarge;
  550.  
  551.  
  552. end;
  553.  
  554. Procedure DDocData.SetLarge (
  555.     inValue:        Str255);
  556. begin
  557.     mLarge := inValue;
  558.  
  559.  
  560.     SignalDataChanged (idLarge);
  561. end;
  562.  
  563. {----------}
  564. Function DDocData.GetX12345: SInt32;
  565. begin
  566.     GetX12345 := mX12345;
  567.  
  568.  
  569. end;
  570.  
  571. Procedure DDocData.SetX12345 (
  572.     inValue:        SInt32);
  573. begin
  574.     mX12345 := inValue;
  575.  
  576.  
  577.     SignalDataChanged (idX12345);
  578. end;
  579.  
  580. {----------}
  581. Function DDocData.GetX12345e6: double;
  582. begin
  583.     GetX12345e6 := mX12345e6;
  584.  
  585.  
  586. end;
  587.  
  588. Procedure DDocData.SetX12345e6 (
  589.     inValue:        double);
  590. begin
  591.     mX12345e6 := inValue;
  592.  
  593.  
  594.     SignalDataChanged (idX12345e6);
  595. end;
  596.  
  597. {----------}
  598. Function DDocData.GetPassword: Str255;
  599. begin
  600.     GetPassword := mPassword;
  601.  
  602.  
  603. end;
  604.  
  605. Procedure DDocData.SetPassword (
  606.     inValue:        Str255);
  607. begin
  608.     mPassword := inValue;
  609.  
  610.  
  611.     SignalDataChanged (idPassword);
  612. end;
  613.  
  614. {----------}
  615. Function DDocData.GetTheDate: LongDateRec;
  616. begin
  617.     GetTheDate := mTheDate;
  618.  
  619.  
  620. end;
  621.  
  622. Procedure DDocData.SetTheDate (
  623.     inValue:        LongDateRec);
  624. begin
  625.     mTheDate := inValue;
  626.  
  627.  
  628.     SignalDataChanged (idTheDate);
  629. end;
  630.  
  631. {----------}
  632. Function DDocData.GetTheTime: LongDateRec;
  633. begin
  634.     GetTheTime := mTheTime;
  635.  
  636.  
  637. end;
  638.  
  639. Procedure DDocData.SetTheTime (
  640.     inValue:        LongDateRec);
  641. begin
  642.     mTheTime := inValue;
  643.  
  644.  
  645.     SignalDataChanged (idTheTime);
  646. end;
  647.  
  648. {----------}
  649. Function DDocData.GetStyled: Str255;
  650. begin
  651.     GetStyled := mStyled;
  652.  
  653.  
  654. end;
  655.  
  656. Procedure DDocData.SetStyled (
  657.     inValue:        Str255);
  658. begin
  659.     mStyled := inValue;
  660.  
  661.  
  662.     SignalDataChanged (idStyled);
  663. end;
  664.  
  665. {----------}
  666. Function DDocData.GetBars: UInt16;
  667. begin
  668.     GetBars := mBars;
  669.  
  670.  
  671. end;
  672.  
  673. Procedure DDocData.SetBars (
  674.     inValue:        UInt16);
  675. begin
  676.     mBars := inValue;
  677.  
  678.  
  679.     SignalDataChanged (idBars);
  680. end;
  681.  
  682. {----------}
  683. Function DDocData.GetStandard2: SInt16;
  684. begin
  685.     GetStandard2 := mStandard2;
  686.  
  687.  
  688. end;
  689.  
  690. Procedure DDocData.SetStandard2 (
  691.     inValue:        SInt16);
  692. begin
  693.     mStandard2 := inValue;
  694.  
  695.  
  696.     SignalDataChanged (idStandard2);
  697. end;
  698.  
  699. {----------}
  700. Function DDocData.GetGraphic2: SInt16;
  701. begin
  702.     GetGraphic2 := mGraphic2;
  703.  
  704.  
  705. end;
  706.  
  707. Procedure DDocData.SetGraphic2 (
  708.     inValue:        SInt16);
  709. begin
  710.     mGraphic2 := inValue;
  711.  
  712.  
  713.     SignalDataChanged (idGraphic2);
  714. end;
  715.  
  716. {----------}
  717. Function DDocData.GetSlider: SInt16;
  718. begin
  719.     GetSlider := mSlider;
  720.  
  721.  
  722. end;
  723.  
  724. Procedure DDocData.SetSlider (
  725.     inValue:        SInt16);
  726. begin
  727.     mSlider := inValue;
  728.  
  729.  
  730.     SignalDataChanged (idSlider);
  731. end;
  732.  
  733. {----------}
  734. Function DDocData.GetTickMarks: SInt16;
  735. begin
  736.     GetTickMarks := mTickMarks;
  737.  
  738.  
  739. end;
  740.  
  741. Procedure DDocData.SetTickMarks (
  742.     inValue:        SInt16);
  743. begin
  744.     mTickMarks := inValue;
  745.  
  746.  
  747.     SignalDataChanged (idTickMarks);
  748. end;
  749.  
  750. {----------}
  751. Function DDocData.GetNonDirectional: SInt16;
  752. begin
  753.     GetNonDirectional := mNonDirectional;
  754.  
  755.  
  756. end;
  757.  
  758. Procedure DDocData.SetNonDirectional (
  759.     inValue:        SInt16);
  760. begin
  761.     mNonDirectional := inValue;
  762.  
  763.  
  764.     SignalDataChanged (idNonDirectional);
  765. end;
  766.  
  767. {----------}
  768. Function DDocData.GetLittleArrows: SInt16;
  769. begin
  770.     GetLittleArrows := mLittleArrows;
  771.  
  772.  
  773. end;
  774.  
  775. Procedure DDocData.SetLittleArrows (
  776.     inValue:        SInt16);
  777. begin
  778.     mLittleArrows := inValue;
  779.  
  780.  
  781.     SignalDataChanged (idLittleArrows);
  782. end;
  783.  
  784. {----------}
  785. Function DDocData.GetSpinner: SInt16;
  786. begin
  787.     GetSpinner := mSpinner;
  788.  
  789.  
  790. end;
  791.  
  792. Procedure DDocData.SetSpinner (
  793.     inValue:        SInt16);
  794. begin
  795.     mSpinner := inValue;
  796.  
  797.  
  798.     SignalDataChanged (idSpinner);
  799. end;
  800.  
  801. {----------}
  802. Function DDocData.GetVolumeControl: SInt16;
  803. begin
  804.     GetVolumeControl := mVolumeControl;
  805.  
  806.  
  807. end;
  808.  
  809. Procedure DDocData.SetVolumeControl (
  810.     inValue:        SInt16);
  811. begin
  812.     mVolumeControl := inValue;
  813.  
  814.  
  815.     SignalDataChanged (idVolumeControl);
  816. end;
  817.  
  818. {----------}
  819. Function DDocData.GetJimSSlider: SInt16;
  820. begin
  821.     GetJimSSlider := mJimSSlider;
  822.  
  823.  
  824. end;
  825.  
  826. Procedure DDocData.SetJimSSlider (
  827.     inValue:        SInt16);
  828. begin
  829.     mJimSSlider := inValue;
  830.  
  831.  
  832.     SignalDataChanged (idJimSSlider);
  833. end;
  834.  
  835. {----------}
  836. Function DDocData.GetStandard3: SInt16;
  837. begin
  838.     GetStandard3 := mStandard3;
  839.  
  840.  
  841. end;
  842.  
  843. Procedure DDocData.SetStandard3 (
  844.     inValue:        SInt16);
  845. begin
  846.     mStandard3 := inValue;
  847.  
  848.  
  849.     SignalDataChanged (idStandard3);
  850. end;
  851.  
  852. {----------}
  853. Function DDocData.GetIndeterminate: SInt16;
  854. begin
  855.     GetIndeterminate := mIndeterminate;
  856.  
  857.  
  858. end;
  859.  
  860. Procedure DDocData.SetIndeterminate (
  861.     inValue:        SInt16);
  862. begin
  863.     mIndeterminate := inValue;
  864.  
  865.  
  866.     SignalDataChanged (idIndeterminate);
  867. end;
  868.  
  869. {----------}
  870. Function DDocData.GetChasingArrows: SInt16;
  871. begin
  872.     GetChasingArrows := mChasingArrows;
  873.  
  874.  
  875. end;
  876.  
  877. Procedure DDocData.SetChasingArrows (
  878.     inValue:        SInt16);
  879. begin
  880.     mChasingArrows := inValue;
  881.  
  882.  
  883.     SignalDataChanged (idChasingArrows);
  884. end;
  885.  
  886. {----------}
  887. Function DDocData.GetRectangle: SInt16;
  888. begin
  889.     GetRectangle := mRectangle;
  890.  
  891.  
  892. end;
  893.  
  894. Procedure DDocData.SetRectangle (
  895.     inValue:        SInt16);
  896. begin
  897.     mRectangle := inValue;
  898.  
  899.  
  900.     SignalDataChanged (idRectangle);
  901. end;
  902.  
  903. {----------}
  904. Function DDocData.GetRoundRect: SInt16;
  905. begin
  906.     GetRoundRect := mRoundRect;
  907.  
  908.  
  909. end;
  910.  
  911. Procedure DDocData.SetRoundRect (
  912.     inValue:        SInt16);
  913. begin
  914.     mRoundRect := inValue;
  915.  
  916.  
  917.     SignalDataChanged (idRoundRect);
  918. end;
  919.  
  920. {----------}
  921. Function DDocData.GetBarberPole: SInt16;
  922. begin
  923.     GetBarberPole := mBarberPole;
  924.  
  925.  
  926. end;
  927.  
  928. Procedure DDocData.SetBarberPole (
  929.     inValue:        SInt16);
  930. begin
  931.     mBarberPole := inValue;
  932.  
  933.  
  934.     SignalDataChanged (idBarberPole);
  935. end;
  936.  
  937. {----------}
  938. Function DDocData.GetRoundBarber: SInt16;
  939. begin
  940.     GetRoundBarber := mRoundBarber;
  941.  
  942.  
  943. end;
  944.  
  945. Procedure DDocData.SetRoundBarber (
  946.     inValue:        SInt16);
  947. begin
  948.     mRoundBarber := inValue;
  949.  
  950.  
  951.     SignalDataChanged (idRoundBarber);
  952. end;
  953.  
  954. {----------}
  955. Function DDocData.GetTools: SInt16;
  956. begin
  957.     GetTools := mTools;
  958.  
  959.  
  960. end;
  961.  
  962. Procedure DDocData.SetTools (
  963.     inValue:        SInt16);
  964. begin
  965.     mTools := inValue;
  966.  
  967.  
  968.     SignalDataChanged (idTools);
  969. end;
  970.  
  971. {----------}
  972. Function DDocData.GetFromValuesList2: SInt16;
  973. begin
  974.     GetFromValuesList2 := mFromValuesList2;
  975.  
  976.  
  977. end;
  978.  
  979. Procedure DDocData.SetFromValuesList2 (
  980.     inValue:        SInt16);
  981. begin
  982.     mFromValuesList2 := inValue;
  983.  
  984.  
  985.     SignalDataChanged (idFromValuesList2);
  986. end;
  987.  
  988. {----------}
  989. Function DDocData.GetFromMenu: SInt16;
  990. begin
  991.     GetFromMenu := mFromMenu;
  992.  
  993.  
  994. end;
  995.  
  996. Procedure DDocData.SetFromMenu (
  997.     inValue:        SInt16);
  998. begin
  999.     mFromMenu := inValue;
  1000.  
  1001.  
  1002.     SignalDataChanged (idFromMenu);
  1003. end;
  1004.  
  1005. {----------}
  1006. Function DDocData.GetTextList: SInt16;
  1007. begin
  1008.     GetTextList := mTextList;
  1009.  
  1010.  
  1011. end;
  1012.  
  1013. Procedure DDocData.SetTextList (
  1014.     inValue:        SInt16);
  1015. begin
  1016.     mTextList := inValue;
  1017.  
  1018.  
  1019.     SignalDataChanged (idTextList);
  1020. end;
  1021.  
  1022. end.
  1023.